

package TagServer::Produto;


#UML_MODELER_BEGIN_PERSONAL_VARS_Produto

#UML_MODELER_END_PERSONAL_VARS_Produto

use TagServer::Encomenda;
use TagServer::Model;

use base qw( TagServer::Model );



=head1 PRODUTO



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=pod 

=head3 new

   Parameters :

   Return : 
      

   Description : 
      

=cut

sub new
{
  my($self    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_new
#UML_MODELER_END_PERSONAL_CODE_new
}


=pod 

=head3 update

   Parameters :
      id : $ : 
      cor : $ : 
      nome : $ : 
      codigo : $ : 
      unidade : $ : 
      quantidade : $ : 
      tamanho : $ : 
      peso : $ : 

   Return : 
      

   Description : 
      

=cut

sub update
{
  my($self,
     $id, # $ : 
     $cor, # $ : 
     $nome, # $ : 
     $codigo, # $ : 
     $unidade, # $ : 
     $quantidade, # $ : 
     $tamanho, # $ : 
     $peso, # $ : 
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_update
#UML_MODELER_END_PERSONAL_CODE_update
}


=pod 

=head3 getData

   Parameters :

   Return : 
      %

   Description : 
      

=cut

sub getData
{
  my($self    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_getData
#UML_MODELER_END_PERSONAL_CODE_getData
}




=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
